home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / Personal / CheckWriter / Check Register / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-08-09  |  2.3 KB  |  23 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>4151</cardID>
  8.     <listID>3041</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on distribute
  17.  
  18. -- Delete all but the first check register page.
  19.  
  20. go to second card of bkgnd "CheckReg"
  21. if the result is empty then
  22. repeat with i = the number of this card ¬¨
  23. to the number of last card of bkgnd "CheckReg"
  24. doMenu "Delete Card"
  25. end repeat
  26. end if
  27.  
  28. -- Clear all the fields of the remaining register page.
  29.  
  30. go to first card of bkgnd "CheckReg"
  31. repeat with i = 1 to the number of fields
  32. put empty into field i
  33. end repeat
  34. put "0.00" into field "BalFwd"
  35. put last item of the abbr date into field "Year"
  36.  
  37. -- Clear the "Balance" card.
  38.  
  39. go to card "Balance"
  40. repeat with i = 1 to the number of card fields
  41. put empty into card field i
  42. end repeat
  43.  
  44. -- Clear the balance field of the first card.
  45.  
  46. go to first card
  47. put empty into card field "Balance"
  48.  
  49. -- Compact the Register stack.
  50.  
  51. doMenu "Compact Stack"
  52.  
  53. end distribute
  54.  
  55. on newVersion version
  56. go to first card
  57. put version into card field "version"
  58. end newVersion
  59.  
  60. -- openStack -- Set up some global values we use often.
  61.  
  62. on openStack
  63. global FirstRow,NbrCols,LastRow,PayCol,DepCol,BalCol
  64. put the number of first card of bkgnd "CheckReg" into x
  65. put (number of bkgnd field FirstNbr of card x) into FirstRow
  66. put (number of bkgnd field SecondNbr of card x) - FirstRow ¬¨
  67. into NbrCols
  68. put (number of bkgnd field LastNbr of card x) into LastRow
  69. put (number of bkgnd field FirstPay of card x) - FirstRow ¬¨
  70. into PayCol
  71. put (number of bkgnd field FirstDep of card x) - FirstRow ¬¨
  72. into DepCol
  73. put (number of bkgnd field FirstBal of card x) - FirstRow ¬¨
  74. into BalCol
  75. put empty into LastDate
  76. end openStack
  77. </script>
  78.     <background id="2569" file="background_2569.xml" name="CheckReg" />
  79.     <background id="3854" file="background_3854.xml" name="" />
  80.     <card id="4151" file="card_4151.xml" marked="false" name="" owner="3854" />
  81.     <card id="5803" file="card_5803.xml" marked="false" name="Balance" owner="3854" />
  82.     <card id="3272" file="card_3272.xml" marked="false" name="" owner="2569" />
  83. </stack>
  84.